home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 180 / 180.d81 / b.star dijits (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  8 lines
  1. 10 restore:reada:bo=peek(66)*256+peek(65)+3:dv=peek(186):ifdv<8thendv=8
  2. 20 ce=bo+3:bl=bo+6:co=bo+9:sw=bo+12:c2=bo+15:dy=bo+18:sysbo:poke53272,23
  3. 50 sysce,15,"[211][160][212][160][193][160][210][160] [160][196][160][201][160][202][160][201][160][212] [211]":sysce,17,"[194]y [203]en [210]obinson"
  4. 70 sysce,19,"([195]) 1999 by [202]&[198] [208]ublishing
  5. 80 [158]ce,20,"(NULL)his (NULL)rogram right$sn't (NULL)ublic str$omain
  6. 5000 sysdy,"star dijits",dv
  7. 6000 data0
  8.